home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 January: Mac OS SDK / Dev.CD Jan 98 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Universal / Interfaces / PInterfaces / EPPC.p < prev    next >
Encoding:
Text File  |  1997-08-12  |  4.2 KB  |  153 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        EPPC.p
  3.  
  4.      Contains:    High Level Event Manager Interfaces.
  5.  
  6.      Version:    Technology:    System 7.5
  7.                  Release:    Universal Interfaces 3.0.1
  8.  
  9.      Copyright:    © 1988-1997 by Apple Computer, Inc., all rights reserved
  10.  
  11.      Bugs?:        Please include the the file and version information (from above) with
  12.                  the problem description.  Developers belonging to one of the Apple
  13.                  developer programs can submit bug reports to:
  14.  
  15.                      devsupport@apple.com
  16.  
  17. }
  18. {$IFC UNDEFINED UsingIncludes}
  19. {$SETC UsingIncludes := 0}
  20. {$ENDC}
  21.  
  22. {$IFC NOT UsingIncludes}
  23.  UNIT EPPC;
  24.  INTERFACE
  25. {$ENDC}
  26.  
  27. {$IFC UNDEFINED __EPPC__}
  28. {$SETC __EPPC__ := 1}
  29.  
  30. {$I+}
  31. {$SETC EPPCIncludes := UsingIncludes}
  32. {$SETC UsingIncludes := 1}
  33.  
  34. {$IFC UNDEFINED __ERRORS__}
  35. {$I Errors.p}
  36. {$ENDC}
  37. {$IFC UNDEFINED __APPLETALK__}
  38. {$I AppleTalk.p}
  39. {$ENDC}
  40. {$IFC UNDEFINED __FILES__}
  41. {$I Files.p}
  42. {$ENDC}
  43. {$IFC UNDEFINED __PPCTOOLBOX__}
  44. {$I PPCToolbox.p}
  45. {$ENDC}
  46. {$IFC UNDEFINED __PROCESSES__}
  47. {$I Processes.p}
  48. {$ENDC}
  49. {$IFC UNDEFINED __EVENTS__}
  50. {$I Events.p}
  51. {$ENDC}
  52.  
  53.  
  54. {$PUSH}
  55. {$ALIGN MAC68K}
  56. {$LibExport+}
  57.  
  58.  
  59. CONST
  60.                                                                 {  postOptions currently supported  }
  61.     receiverIDMask                = $0000F000;
  62.     receiverIDisPSN                = $00008000;
  63.     receiverIDisSignature        = $00007000;
  64.     receiverIDisSessionID        = $00006000;
  65.     receiverIDisTargetID        = $00005000;
  66.     systemOptionsMask            = $00000F00;
  67.     nReturnReceipt                = $00000200;
  68.     priorityMask                = $000000FF;
  69.     nAttnMsg                    = $00000001;
  70.  
  71.                                                                 {  constant for return receipts  }
  72.     HighLevelEventMsgClass        = 'jaym';
  73.     rtrnReceiptMsgID            = 'rtrn';
  74.  
  75.     msgWasPartiallyAccepted        = 2;
  76.     msgWasFullyAccepted            = 1;
  77.     msgWasNotAccepted            = 0;
  78.  
  79.  
  80. TYPE
  81.     TargetIDPtr = ^TargetID;
  82.     TargetID = RECORD
  83.         sessionID:                LONGINT;
  84.         name:                    PPCPortRec;
  85.         location:                LocationNameRec;
  86.         recvrName:                PPCPortRec;
  87.     END;
  88.  
  89.     TargetIDHandle                        = ^TargetIDPtr;
  90.     TargetIDHdl                            = TargetIDHandle;
  91.     SenderID                            = TargetID;
  92.     SenderIDPtr                         = ^SenderID;
  93.     HighLevelEventMsgPtr = ^HighLevelEventMsg;
  94.     HighLevelEventMsg = RECORD
  95.         HighLevelEventMsgHeaderLength: INTEGER;
  96.         version:                INTEGER;
  97.         reserved1:                LONGINT;
  98.         theMsgEvent:            EventRecord;
  99.         userRefcon:                LONGINT;
  100.         postingOptions:            LONGINT;
  101.         msgLength:                LONGINT;
  102.     END;
  103.  
  104.     HighLevelEventMsgHandle                = ^HighLevelEventMsgPtr;
  105.     HighLevelEventMsgHdl                = HighLevelEventMsgHandle;
  106.     GetSpecificFilterProcPtr = ProcPtr;  { FUNCTION GetSpecificFilter(contextPtr: UNIV Ptr; msgBuff: HighLevelEventMsgPtr; (CONST)VAR sender: TargetID): BOOLEAN; }
  107.  
  108.     GetSpecificFilterUPP = UniversalProcPtr;
  109.  
  110. CONST
  111.     uppGetSpecificFilterProcInfo = $00000FD0;
  112.  
  113. FUNCTION NewGetSpecificFilterProc(userRoutine: GetSpecificFilterProcPtr): GetSpecificFilterUPP;
  114.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  115.     INLINE $2E9F;
  116.     {$ENDC}
  117.  
  118. FUNCTION CallGetSpecificFilterProc(contextPtr: UNIV Ptr; msgBuff: HighLevelEventMsgPtr; {CONST}VAR sender: TargetID; userRoutine: GetSpecificFilterUPP): BOOLEAN;
  119.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  120.     INLINE $205F, $4E90;
  121.     {$ENDC}
  122. FUNCTION PostHighLevelEvent({CONST}VAR theEvent: EventRecord; receiverID: UNIV Ptr; msgRefcon: LONGINT; msgBuff: UNIV Ptr; msgLen: LONGINT; postingOptions: LONGINT): OSErr;
  123.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  124.     INLINE $3F3C, $0034, $A88F;
  125.     {$ENDC}
  126. FUNCTION AcceptHighLevelEvent(VAR sender: TargetID; VAR msgRefcon: LONGINT; msgBuff: UNIV Ptr; VAR msgLen: LONGINT): OSErr;
  127.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  128.     INLINE $3F3C, $0033, $A88F;
  129.     {$ENDC}
  130. FUNCTION GetProcessSerialNumberFromPortName({CONST}VAR portName: PPCPortRec; VAR pPSN: ProcessSerialNumber): OSErr;
  131.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  132.     INLINE $3F3C, $0035, $A88F;
  133.     {$ENDC}
  134. FUNCTION GetPortNameFromProcessSerialNumber(VAR portName: PPCPortRec; {CONST}VAR pPSN: ProcessSerialNumber): OSErr;
  135.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  136.     INLINE $3F3C, $0046, $A88F;
  137.     {$ENDC}
  138. FUNCTION GetSpecificHighLevelEvent(aFilter: GetSpecificFilterUPP; contextPtr: UNIV Ptr; VAR err: OSErr): BOOLEAN;
  139.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  140.     INLINE $3F3C, $0045, $A88F;
  141.     {$ENDC}
  142.  
  143. {$ALIGN RESET}
  144. {$POP}
  145.  
  146. {$SETC UsingIncludes := EPPCIncludes}
  147.  
  148. {$ENDC} {__EPPC__}
  149.  
  150. {$IFC NOT UsingIncludes}
  151.  END.
  152. {$ENDC}
  153.